home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
DATABASE
/
FOXRYAN.ZIP
/
VERIFY11.PRG
< prev
next >
Wrap
Text File
|
1993-07-28
|
2KB
|
58 lines
m.crlf = chr(13)+chr(10)
declare names(22)
names[ 1] = "Parking"
names[ 2] = "Passenger Loading Zones"
names[ 3] = "Pathways"
names[ 4] = "Areas of Rescue Assistance"
names[ 5] = "Drinking Fountatins"
names[ 6] = "Telephones"
names[ 7] = "Ramps"
names[ 8] = "Stairs"
names[ 9] = "Lifts"
names[10] = "Entrances"
names[11] = "Doors and Gates"
names[12] = "Building Lobbies and Corridors"
names[13] = "Elevators"
names[14] = "Rooms and Spaces"
names[15] = "Assembly Rooms"
names[16] = "Toilet Rooms"
names[17] = "Bathtubs and Showers"
names[18] = "Restaurants and Cafeterias"
names[19] = "Health Care"
names[20] = "Mercantile and Business"
names[21] = "Libraries"
names[22] = "Accessible Transient Lodging"
for m.i = 1 to 22
m.form = "form" + alltrim(str(m.i))
m.dbfile = m.form + ".dbf"
for m.j = 0 to 14
m.letter = iif(m.j = 0, "", chr(m.j-1+asc("A")))
m.scrfile = m.form + alltrim(m.letter) + ".scx"
?m.scrfile
select 0
if not file(m.scrfile)
exit
endif
next
* m.j must be the number of pages in this form.
for m.k = 0 to m.j-1
m.nextletter = iif(m.k = 0, "", chr(m.k-1+asc("A")))
m.nextscrfile = m.form + alltrim(m.nextletter) + ".scx"
?m.nextscrfile
select 0
if not file(m.nextscrfile)
exit
endif
use &nextscrfile alias screen
go top
locate for screen.objtype=1
m.tag = '"' + names[m.i] + ' [p ' + alltrim(str(m.k+1)) + ' of ' + alltrim(str(m.j)) + ']"'
gather memvar memo fields screen.tag
use
endfor
endfor